﻿Module Module1
  Sub Main()

    Dim mat(3) As Array    ' definisce 4 righe
    ' (da 0 a 3)
    Dim mat0(2) As String  ' array di 4 elementi
    ' nella riga 0
    Dim mat1(1) As String  ' array di 2 elementi 
    ' nella riga 1
    Dim mat2(2) As String  ' array di 3 elementi
    ' nella riga 2
    Dim mat3(3) As String  ' array di 2 elementi
    ' nella riga 3
    mat(0) = mat0          ' assegna array mat0 alla
    ' riga 0 di mat
    mat(1) = mat1          ' assegna array mat1 alla
    ' riga 1 di mat
    mat(2) = mat2          ' assegna array mat2 alla
    ' riga 2 di mat
    mat(3) = mat3          ' assegna array mat3 alla
    ' riga 3 di mat
    Dim i As Integer       ' variabile di ciclo
    ' esterno (righe)
    Dim j As Integer       ' variabile di ciclo
    ' interno (colonne)
    Dim risp As String = "" ' variabile per
    ' composizione messaggio
    For i = 0 To mat.GetUpperBound(0)
      ' ciclo esterno (righe)
      For j = 0 To mat(i).GetUpperBound(0)
        ' ciclo interno (colonne)
        ' imposta un valore:
        mat(i).SetValue(i & "-" & j, j)
      Next
    Next
    For i = 0 To mat.GetUpperBound(0)
      For j = 0 To mat(i).GetUpperBound(0)
        risp &= mat(i).GetValue(j) & _
            "  " ' legge un valore
      Next
      ' ritorno a capo:
      risp &= Environment.NewLine
    Next
    Console.WriteLine(risp)
    Console.ReadLine()

  End Sub
End Module
